home *** CD-ROM | disk | FTP | other *** search
/ A Million Times Begging / A Million Times Begging - Disc 1.iso / pc / data / main.dir / 00003.ls < prev    next >
Encoding:
Text File  |  1998-05-14  |  1.3 KB  |  60 lines
  1. on exitFrame
  2.   global btnnum, gflag
  3.   bgmcheck()
  4.   set btnnum to btnnum + 2
  5.   if btnnum >= 29 then
  6.     set btnnum to 1
  7.   end if
  8.   btnmov()
  9.   repeat with i = 3 to 5
  10.     case i of
  11.       3:
  12.         set str to "M"
  13.       4:
  14.         set str to "F"
  15.       5:
  16.         set str to "P"
  17.     end case
  18.     if rollOver(i + 3) then
  19.       case getAt(gflag, i - 2) of
  20.         0:
  21.           set str to str & string(2)
  22.         1:
  23.           set str to str & string(4)
  24.       end case
  25.     else
  26.       case getAt(gflag, i - 2) of
  27.         0:
  28.           set str to str & string(1)
  29.         1:
  30.           set str to str & string(3)
  31.       end case
  32.     end if
  33.     set the member of sprite i to the name of member str
  34.   end repeat
  35.   repeat with i = 60 to 63
  36.     if rollOver(60) = 1 then
  37.       set the visible of sprite 50 to 0
  38.     else
  39.       set the visible of sprite 50 to 1
  40.     end if
  41.     if rollOver(61) = 1 then
  42.       set the visible of sprite 51 to 0
  43.     else
  44.       set the visible of sprite 51 to 1
  45.     end if
  46.     set the visible of sprite (i - 5) to rollOver(i)
  47.   end repeat
  48.   set cnt to 0
  49.   repeat with i = 1 to 3
  50.     if getAt(gflag, i) = 1 then
  51.       set cnt to cnt + 1
  52.     end if
  53.   end repeat
  54.   if cnt <> 0 then
  55.     set the visible of sprite 59 to rollOver(64)
  56.   end if
  57.   updateStage()
  58.   go(the frame)
  59. end
  60.